home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / pvm34b3.zip / pvm34b3 / pvm3 / libfpvm / pvmfsiblings.m4 < prev    next >
Text File  |  1997-07-22  |  413b  |  26 lines
  1.  
  2. /* $Id: pvmfsiblings.m4,v 1.1 1997/06/26 19:39:57 pvmsrc Exp $ */
  3.  
  4. #include "pvm3.h"
  5. #include "pvm_consts.h"
  6.  
  7. void
  8. FUNCTION(pvmfsiblings) ARGS(`nsiblings, sibidx, stid')
  9. int *nsiblings, *sibidx, *stid;
  10. {
  11.     static int nsib = -1;
  12.     static int *sibs;
  13.     if (nsib == -1)
  14.         nsib = pvm_siblings(&sibs);
  15.  
  16.     *nsiblings = nsib;
  17.  
  18.     if (*sibidx >= 0 && *sibidx< nsib)
  19.     {
  20.         *stid = sibs[*sibidx];
  21.     }
  22.     else
  23.         *stid = PvmNoTask;
  24. }
  25.  
  26.